home *** CD-ROM | disk | FTP | other *** search
/ PC101 - Computer Basics / PC101 - Computer Basics.iso / mac / Shared.cxt / 00019_Field_radioButtonTextCast.txt next >
Text File  |  2000-11-27  |  461b  |  16 lines
  1. ---------------
  2. --Radio Button Text Cast (gets copied into all radio buttons'  script casts)
  3. -- Revision                      Pre Release
  4. -- Origin Author               ES
  5. -- Origin Date                  3/29/96
  6. -- Revision Date             -
  7. -----------------
  8. on mouseDown
  9.   global radioObjectList
  10.   
  11. repeat with i=1 to count(radioObjectList)
  12.     if radioCheckClickOn(getAt(radioObjectList, i)) =1 then exit repeat
  13.   end repeat
  14.   
  15. end mouseDown
  16.